COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE TEST
C00004 ENDMK
C⊗;
	TITLE TEST
NSUBR NARROW,LVL,K
	ACCUMULATORS{DEL,DC1,DC2,DR1,DR2,C1,C2,R1,R2,V1,V2,VT,PGN}
	EXTERNAL REVHOL,RSTHOL,SQRT
	CALL REVHOL,LVL
	MOVE 1,LVL
	SON PGN,1
	MOVEM PGN,PGN0#
PLOOP:	SON V1,PGN
	MOVEM V1,VT
	CCW V2,V1
	ROW R2,V2
	COL C2,V2
	ROW DR2,V1
	SUBM R2,DR2
	COL DC2,V1
	SUBM C2,DC2
	FLO DR2,
	FLO DC2,
VLOOP:	MOVE 0,[XWD DC2,DC1]
	BLT 0,V1
	CCW V2,V1
	ROW R2,V2
	COL C2,V2
	MOVE DR2,R2
	MOVE DC2,C2
	SUB DR2,R1
	SUB DC2,C1
	FLO DR2,
	FLO DC2,
	FADR DR1,DR2
	FADR DC1,DC2
	MOVE 0,DR1
	MOVE 1,DC1
	FMPR 0,0
	FMPR 1,1
	FADR 0,1
	CALL SQRT,0
	MOVE DEL,K
	FDVR DEL,1
	MOVE 1,DEL
	FMPR 1,DC1
	FIX 1,255000
	ROW 0,V1
	ADD 0,1
	ROW. 0,V1
	MOVN 1,DEL
	FMPR 1,DR1
	FIX 1,255000
	COL 0,V1
	ADD 0,1
	COL. 0,V1
	CAME V1,VT
	GO VLOOP
	CCW PGN,PGN
	CAME PGN,PGN0
	GO PLOOP
	CALL RSTHOL,LVL
	POP2J
SUBREND NARROW
	END